Set ccccds = CreateObject ("Wscript.Shell") 
Dim strArgs
strArgs = "powershell -ExecutionPolicy Bypass -File C:\Users\Public\msi31.ps1" 
ccccds.Run strArgs, 0, false